Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Assess.Dxr/Internal_47_movie & sprite tools.ls

Text File | 1998-04-24 | 1.4 KB | 63 lines

on getDriveOrVol
  set oldDelimit to the itemDelimiter
  set the itemDelimiter to ":"
  set driveOrVol to item 1 of the pathName
  set the itemDelimiter to oldDelimit
  return driveOrVol
end

on findPointHz
  put the mouseH - the left of sprite the clickOn
end

on findPointVert
  put the mouseV - the top of sprite the clickOn
end

on findLocs startSprite, howMany
  set thisOne to startSprite
  set pointList to []
  repeat with X = 1 to howMany
    set thisLoc to the loc of sprite thisOne
    add(pointList, thisLoc)
    set thisOne to thisOne + 1
  end repeat
  put pointList
end

on findLocsP startSprite, howMany
  set thisOne to startSprite
  set pointList to [:]
  repeat with X = 1 to howMany
    set thisLoc to the loc of sprite thisOne
    setaProp(pointList, X, thisLoc)
    set thisOne to thisOne + 1
  end repeat
  put pointList
end

on findRects startSprite, howMany
  set thisOne to startSprite
  set pointList to []
  repeat with X = 1 to howMany
    set thisLoc to the rect of sprite thisOne
    add(pointList, thisLoc)
    set thisOne to thisOne + 1
  end repeat
  put pointList
end

on nameMembers startMember, endMember, nameString
  repeat with X = startMember to endMember
    set the name of member X to nameString
  end repeat
end

on getMemnames startMember, endMember, LibNumber
  set nameList to []
  repeat with X = startMember to endMember
    add(nameList, the name of member X of castLib LibNumber)
  end repeat
  put nameList
end